Skip to main content
[screenshot]

RI Apple Group Crate 001 Disk 145






Identifier ri_apple_group_crate_001_disks_145
Scanner Internet Archive Python library 0.3.8
Mediatype software
Publicdate 2013-10-11 09:08:20
Addeddate 2013-10-11 09:08:20
Emulator_ext dsk
Emulator apple2ee

Notes

Disk info for disk145.dsk:

File Name: ri_apple_group_crate_001_disks_145/disk145.dsk
Disk Name: /DISK6/
Physical Size (bytes): 143360
Free Space (bytes): 57344
Used Space (bytes): 86016
Physical Size (KB): 140
Free Space (KB): 56
Used Space (KB): 84
Archive Order: DOS
Disk Format: ProDOS
Total Blocks: 280
Free Blocks: 112
Used Blocks: 168
Volume Access: Destroy Read Rename Write
Block Number of Bitmap: 6
Creation Date: 08/26/1993
File Entries Per Block: 13
File Entry Length (bytes): 39
Active Files in Root Directory: 14
Minimum ProDOS Version Required: 0
Volume Created By ProDOS Version: 5
Volume Name: DISK6

Disk directory for disk145.dsk:

ri_apple_group_crate_001_disks_145/disk145.dsk /DISK6/
* PRODOS SYS 035 11/02/1992 11/02/1992 17,128
* BASIC.SYSTEM SYS 021 12/06/1991 12/06/1991 10,240 A=$2000
SMC.CATALOG TXT 044 08/27/1993 08/27/1993 21,623
DODOC BAS 001 09/11/1991 06/12/1992 68 A=$0801
DOGPAW BIN 012 05/10/1989 06/12/1992 5,236 A=$4000
FREEWRITER SYS 023 11/17/1984 06/12/1992 11,000 A=$2000
INSTREAD BAS 001 08/22/1991 06/12/1992 142 A=$0801
INSTRUC..PLE.II TXT 005 01/27/1993 01/27/1993 2,044
PRINTDOC BAS 001 09/12/1991 06/12/1992 68 A=$0801
PRINTDOCS BAS 001 12/24/1991 06/12/1992 389 A=$0801
READDOCUMENTS BAS 001 01/22/1993 06/12/1992 385 A=$0801
SF.GET BIN 008 10/06/1991 06/12/1992 3,345 A=$4000
STARTUP BAS 003 04/28/1993 06/12/1992 726 A=$0801
VOL165.IIC TXT 005 08/12/1993 08/12/1993 1,652
ProDOS format; 57,344 bytes free; 86,016 bytes used.


Text found in disk145.dsk/PRINTDOC.bas:

10 PRINT CHR$(4)"-dogpaw"
20 PRINT CHR$(4)"pr#1"
30 PRINT CHR$(4)"dogpaw smc.catalog"


Text found in disk145.dsk/PRINTDOCS.bas:

5 PRINT CHR$(4)"-DOGPAW"
10 IF PEEK(64435) < >6 OR PEEK(64448) = 234 THEN PRINT "SORRY, YOUR MACHINE CAN'T USE SF.GET.": END
20 PRINT CHR$(4)"PR#3": PRINT CHR$(4)"-SF.GET": HOME : PRINT
55 PRINT "Please select the file to print and press return"
60 & SF GET (F$,9,5,4,26)
70 IF F$ = "" THEN HOME : END
80 HOME : PRINT : PRINT "The file you selected is "F$
100 REM Get_File_Info parameter list begins at 48820 ($BEB4)
105 PRINT CHR$(4)"PR#1"
110 PRINT CHR$(4)"DOGPAW "F$
120 PRINT CHR$(4)"PR#0"
130 PRINT CHR$(4)"PR#6"


Text found in disk145.dsk/READDOCUMENTS.bas:

4 SP$ = " ":J$ = "$"
5 PRINT CHR$(4)"-DOGPAW"
10 IF PEEK(64435) < >6 OR PEEK(64448) = 234 THEN PRINT "SORRY, YOUR MACHINE CAN'T USE SF.GET.": END
20 PRINT CHR$(4)"PR#3": PRINT CHR$(4)"-SF.GET": HOME : PRINT
25 HOME
30 PRINT " SELECT DOCUMENT TO READ"
60 & SF GET (F$,9,5,4)
70 IF F$ = "" THEN HOME : END
100 REM Get_File_Info parameter list begins at 48820 ($BEB4)
105 PRINT "Type in string to search for,PRESS RETURN FOR NONE:"
106 INPUT " ";S$
110 PRINT CHR$(4)"DOGPAW"F$SP$J$S$
120 GOTO 25


Text found in disk145.dsk/STARTUP.bas:

10 TEXT : HOME
15 D$ = CHR$(4)
20 A$ = " SOFTWARE OF THE MONTH CLUB"
30 B$ = "5816 DRYDEN PLACE"
40 C$ = "CARLSBAD, CA 92009"
50 E$ = "(619) 931-8111"
100 POKE 34,4: POKE 35,4: POKE 32,4
105 SPEED= 210: VTAB 7
110 FOR A = 1 TO LEN(A$)
120 PRINT RIGHT$(A$,A)
130 NEXT A
140 TEXT : SPEED= 250
150 POKE 35,23: POKE 32,10
160 FOR B = 15 TO 8 STEP -1
170 POKE 34,B: CALL -936
180 PRINT B$: PRINT C$
190 FOR Z = 1 TO 90: NEXT Z
200 NEXT B
210 TEXT : SPEED= 210: POKE 34,11
220 VTAB 11
229 E1 = 0
230 FOR E = 38 TO 13 STEP -1
240 E1 = E1 +1
250 IF E1 >14 THEN E1 = 14
260 VTAB 11: HTAB E: PRINT LEFT$(E$,E1);" "
270 NEXT E
300 SPEED= 250
390 FOR Z = 1 TO 1000: NEXT Z
400 TEXT : HOME : HTAB 8: PRINT "SOFTWARE OF THE MONTH CLUB"
401 PRINT CHR$(4)"-DOGPAW"
410 PRINT : PRINT
420 PRINT "1. Back Issue Catalog"
421 PRINT "2. Print Back Issue Catalog"
490 PRINT : PRINT : PRINT "Q To Quit"
500 PRINT : PRINT : INPUT "Choice: ";CH$
510 IF CH$ = "1" THEN PRINT CHR$(4)"-dodoc"
511 IF CH$ = "2" THEN PRINT CHR$(4)"-printdoc"
520 IF CH$ = "Q" OR CH$ = "q" THEN GOTO 540
530 GOTO 400
540 PRINT CHR$(4)"CAT"

Reviews

There are no reviews yet. Be the first one to write a review.